home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 July / 1987-07.d64 / ml for beg.128 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  290 b   |  9 lines
  1. 1 input"[147][144]starting address";s:input"ending address";f
  2. 2 print"[147]":fori=stos+47step6
  3. 3 ifi>fthennext:print"goto 7":goto6
  4. 4 printi;"data";:forj=0to5:r$=str$(peek(i+j)):printright$(r$,len(r$)-1);",";
  5. 5 nextj:printchr$(20):nexti:print"goto 2"
  6. 6 poke208,10:fork=1to10:poke841+k,13:nextk:print"":s=s+48:end
  7. 7 print"[147]":form=1to8:printm:nextm
  8. 8 poke208,8:fork=1to8:poke841+k,13:nextk:print"":end
  9.